00100	A28+1    JRST A281
00200	A28+2    CAIL 0,44
00300	A28+3    JRST A28X
00400	A28+4    SUBI 0,36
00500	A28+5    FLTR 0,0
00600	A28+6    MOVEM 0,.COMM.+6
00700	A28+7    MOVE 0,WHOLE+11
00800	A28+10   MOVEM 0,.COMM.+7
00900	A28+11   MOVSI 0,203600
01000	A28+12   MOVEI 5,1	;SAVE AC5 FOR LATER COMPARES
01100	A28+13   CAMN 5,RNW-1	;RNW-1 IS 'STEM'
01200	A28+14   FADR 0,WHOLE+14
01300	A28+15   FMPR 0,STF+10
01400	A28+16   KIFIX 0,0
01500	A28+17   ADDM 0,.COMM.+30
01600	A28+20   SETZM COMM.+10
01700	A28+21   SETZM COMM.+11
01800	A28+22   SETZM COMM.+12
01900	A28+23   MOVSI 0,202500
02000	A28+24   MOVEI 2,1
02100	A28+25   CAME 5,RNW-1
02200	A28+26   JRST A28+31
02300	A28+27   MOVNS 0  ;THIS FOR STEM UP, POS. NUM. IN P11
02400	A28+30   FSBR 0,WHOLE+13
02500	A28+31   FLTR 2,.COMM.+31
02600	1P+11     SKIPL 4,RM11	; IF(RM11.GE.0)GO TO A2828
02700	1P+12     JRST A2828
02800	1P+13     MOVE 3,RM8
02900	1P+14     FADRI 3,204400	;AC3=RM8+8
03000	1P+15     MOVNS RM11
03100	1P+16     KIFIX 4,RM11
03200	1P+17     FLTR 4,4
03300	1P+20     FSBR 4,RM11	; AC4=MOD(RM11,1.0)
03400	1P+21     MOVNS 4	;AC4 NOW HAS EXTENSION OF POSITION
03500	1P+22     FMPRI 4,204500
03600		MOVE [2.5]	; AC0=2.5    TO SPACE OUT AWAY FROM STEM
03700		CAMN 5,STEM	;IF(STEM.EQ.1)AC0=-AC0
03800		MOVNS
03900	1P+23     FADR 3,4	;AC3=AC3+AC4*10.
04000	1P+24     CAME 5,STEM	;IF(STEM.NE.1)AC3=-AC3
04100	1P+25     MOVNS 3
04200	1P+26     FADR 0,3
04300	A2828:     FADR 0,2	;AC0 NOW HAS R4 INFO
04400	
04500	
04600	A11:      SKIPL 2,.COMM.+14   ;IF(R11.GE.0)GO TO A111
04700	1P+1      JRST A111
04800	1P+2      MOVEM 2,RM11#	;SAVE R11
04900	1P+3      MOVNM 2,.COMM.+14	;GET BACK POS. VALUE OF R11
05000		MOVNS J11	;GET POS. VALUE OF THIS TOO
05100	1P+4      MOVE 0,.COMM.+11
05200		CAMN [999.0]	;IF(R8.EQ.999)RM8=0
05300		SETZ
05400	1P+5      MOVEM 0,RM8#	; SAVE R8
05500	1P+6      MOVE 0,.COMM.+5
05600	1P+7      MOVEM 0,N
05700	1P+10     JRST 6M
05800	
05900	 
06000	6M        MOVNS J11
06100	A111:     JSA 16,NTS